<?php

session_start();

$soporte = $_SESSION['caweb']['soporte'];
$sucursaldestino = $_SESSION['caweb']['ubicaciondestino'];

function con_caweb()
{
        if (!($link=mysql_connect("localhost","caweb","caweb")))
        {
                echo "Error conectando al sistema de bases de datos";
                exit();
        }
	if (!mysql_select_db($_SESSION['caweb']['basededatos'],$link))
        {
                echo "Error seleccionando la base de datos";
                exit();
        }
        return $link;
}

function con_intranetpccom()
{
        if (!($link=mysql_connect("localhost","caweb","caweb")))
        {
                echo "Error conectando al sistema de bases de datos";
                exit();
        }
	if (!mysql_select_db('intranetpccom',$link))
        {
                echo "Error seleccionando la base de datos";
                exit();
        }
        return $link;
}

$transaccion=$_GET['transaccion'];
$link_caweb = con_caweb();
$result40 ="SELECT * FROM cabeceras WHERE transaccion = '$transaccion'";
$result40=mysql_query($result40,$link_caweb) or die('Error cabeceras, '.mysql_error());
$row40 = mysql_fetch_array($result40);

$result41 ="SELECT * FROM documentos WHERE documento = '$row40[documento]'";
$result41=mysql_query($result41,$link_caweb) or die('Error documentos, '.mysql_error());
$row41 = mysql_fetch_array($result41);

$result42 ="SELECT * FROM detalles WHERE transaccion = '$transaccion' AND interno <> '' ORDER BY item,interno";
$result42=mysql_query($result42,$link_caweb) or die('Error detalles, '.mysql_error());

$result43 ="SELECT * FROM detalles WHERE transaccion = '$transaccion' AND interno = '' ORDER BY item,interno";
$result43=mysql_query($result43,$link_caweb) or die('Error detalles, '.mysql_error());

require("fpdf.php");
$pdf=new FPDF('P','mm','mcarta');
$pdf->AliasNbPages();
$pdf->AddPage();

$pdf->SetFont('times','B',12);
$pdf->SetXY(70,10);
$pdf->Write(5,$row41[nombre]);

$pdf->SetFont('times','B',8);
$pdf->SetXY(160,15);
$pdf->Cell(0,0,'Sucursal Creo: '.$row40[sucursal],0,1,'R');

$pdf->SetXY(160,18);
$pdf->Cell(0,0,'Fecha: '.$row40[fechacreo],0,1,'R');

$pdf->SetXY(160,21);
$pdf->Cell(0,0,'Documento No. '.$row40[numero],0,1,'R');

$pdf->SetXY(160,24);

if ($row40[documentoref]<>"" AND $row40[documentoref1]=="")
{
	$pdf->Cell(0,0,$row40[documentoref].':'.$row40[numeroref],0,1,'R');
}
if ($row40[documentoref1]<>"")
{
	$pdf->Cell(0,0,$row40[documentoref].':'.$row40[numeroref]." / ".
					$row40[documentoref1].':'.$row40[numeroref1],0,1,'R');
}


if ($row40[documento]=="STS") 
{
	$pdf->SetXY(160,27);
	$pdf->Cell(0,0,'Sucursal destino: '.$sucursaldestino,0,1,'R');
}

if ($row40[documento]=="SOI" OR $row40[documento]=="LOI" OR $row40[documento]=="ERA")
{
	$result44 = "SELECT name FROM clientes WHERE nit = '$row40[terceroref]'";
	$result44 = mysql_query($result44,$link_caweb) or die('Error tabla clientes, '.mysql_error());
	$row44 = mysql_fetch_array($result44);
	$pdf->SetXY(160,27);
	$pdf->Cell(0,0,'Cliente: '.$row40[terceroref]."-".substr($row44[name],0,30),0,1,'R');
}

if ($row40[documento]=="SRA" OR $row40[documento]=="EPA" OR $row40[documento]=="SRV" OR $row40[documento]=="SRP" OR $row40[documento]=="ERV" OR $row40[documento]=="ERP" OR $row40[documento]=="SWO" OR $row40[documento]=="SWP"
	OR $row40[documento]=="EWO" OR $row40[documento]=="EWP")
{
	$link_intranetpccom = con_intranetpccom();
	$result44 = "SELECT nombres,apellidos FROM usuarios WHERE cedula = '$row40[terceroref]'";
	$result44 = mysql_query($result44,$link_intranetpccom) or die('Error usuarios, '.mysql_error());
	$row44 = mysql_fetch_array($result44);
	$pdf->SetXY(160,27);
	$pdf->Cell(0,0,'Tecnico/Empleado '.$row40[terceroref]."-".substr($row44[nombres].' '.$row44[apellidos],0,30),0,1,'R');
}

if ($row40[documento]=="STE" OR $row40[documento]=="ETE")
{
	$link_caweb = con_caweb();
	$result44 = "SELECT nit,nombre FROM terceros WHERE nit = '$row40[terceroref]'";
	$result44 = mysql_query($result44,$link_caweb) or die('Error terceros, '.mysql_error());
	$row44 = mysql_fetch_array($result44);
	$pdf->SetXY(160,27);
	$pdf->Cell(0,0,'Tercero '.$row40[terceroref]."-".substr($row44[nombre],0,30),0,1,'R');
}

if ($row40[documento]=="ECO")
{
	$link_caweb = con_caweb();
	$result44 = "SELECT nit,nombre FROM proveedores WHERE nit = '$row40[terceroref]'";
	$result44 = mysql_query($result44,$link_caweb) or die('Error proveedores, '.mysql_error());
	$row44 = mysql_fetch_array($result44);
	$pdf->SetXY(160,27);
	$pdf->Cell(0,0,'Proveedor '.$row40[terceroref]."-".substr($row44[nombre],0,30),0,1,'R');
}

$pdf->SetFont('times','',8);

$pdf->Line(10, 33, 200, 33);
$pdf->SetXY(10,33);
$pdf->Write(5,"ITEM            SERIALES / CANTIDADES");
$pdf->Line(10, 38, 200, 38);
$pdf->SetXY(10,40);

$totalitem=0;
$columna=0;
$conteo=0;
$itemanterior="";

//  Imprime los item con INTERNO

while ($row42 = mysql_fetch_array($result42))
{
	if ($itemanterior<>substr($row42[item],0,5))
	{ 
		if ($columna<>0) $pdf->ln(); 
		
		$columna=0; $conteo=1;  
	}
	

	if ($columna==0) { $pdf->Write(4,substr($row42[item],0,5)); }
	$columna++;
	
	$pdf->SetX(30+($columna-1)*35);
	$pdf->Write(4,$conteo.") ".$row42[interno]);
	$itemanterior=substr($row42[item],0,5);
	$conteo++;
	$totalitem++;
    if ($columna==5) 
    {  
        $pdf->ln(); 
        $columna=0;  
    
        $salto=$pdf->GetY(); 
        if ($salto >= 104) 
        {     
            $pdf->AddPage();
            $pdf->SetFont('times','B',12);
            $pdf->SetXY(70,10);
            $pdf->Write(5,$row41[nombre]);
        
            $pdf->SetFont('times','B',8);
            $pdf->SetXY(160,15);
            $pdf->Cell(0,0,'Sucursal Creo: '.$row40[sucursal],0,1,'R');
    
            $pdf->SetXY(160,18);
            $pdf->Cell(0,0,'Fecha: '.$row40[fechacreo],0,1,'R');
            
            $pdf->SetXY(160,21);
            $pdf->Cell(0,0,'Documento No. '.$row40[numero],0,1,'R');
            
            $pdf->SetXY(10,40);
        }
    }
}

$fila=$pdf->GetY();
$fila=$fila+5;
$pdf->Line(10, $fila, 200, $fila);
$pdf->ln();
$pdf->Write(7,"Total Items con Serial Interno : ".$totalitem);

//  Imprime los item sin INTERNO

$pdf->ln(10);
$pdf->Write(5,"Items por cantidad: ");

while ($row43 = mysql_fetch_array($result43))
{
	$pdf->Write(5,$row43[cantidad]." ".$row43[item]." , ");
	$sucursaldestino=$row43[ubicaciondestino];
}



$pdf->SetFont('courier','B',9);

if ($row41[tipo] == "S")
{
    $pie1="Autorizo: __________________   Entrego: ____________________  Recibio: __________________";
    $pie2="Nombre:   __________________   Almacenista: ________________  Nombre: ___________________";
}
else
{
	if ($row41[tipo] == "E")
	{
		$pie1="   Recibio: ____________________  Entrego: __________________";
		$pie2="   Almacenista: ________________  Nombre: ___________________";
	}
	else
	{
		$pie1="";
		$pie2="";
	}
}

$pdf->SetY(110);
$pdf->Write(4,$pie1);
$pdf->ln();
$pdf->Write(4,$pie2);



$pdf->Output();

?>
